home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_18_(11-1984).d64 / trace 64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  45 lines
  1. 1 REM TRACE/64 FROM COMPUTE 6/84 PG 118
  2. 2 REM ENTERED FOR CUON LIBRARY BY SAM BARRETT
  3. 3 REM --- TRACE LOADER
  4. 10 LM=PEEK(55)+PEEK(56)*256-248:REM LIMIT OF BASIC MEMORY - 248 = NEW LIMIT
  5. 15 HI=INT(LM/256):LO=LM-HI*256:REM HIGH AND LOW BYTES OF ADDRESS
  6. 20 POKE 55, LO:POKE 56,HI:CLR:REM SET NEW LIMIT
  7. 25 TRACE=PEEK(55)+PEEK(56)*256:REM TRACE LOAD ADDRESS=NEW LIMIT
  8. 30 A=TRACE
  9. 40 PRINT:PRINT"LOADING TRACE ROUTINE AT" A
  10. 50 FOR D=1 TO 201:READ N:CS=CS+N:REM READ & CHECKSUM CODE DATA
  11. 55 REM POSITIVE DATA IS NORMAL BYTE
  12. 60 IF N>=0 THEN POKE A,N:GOTO 80
  13. 65 REM NEGATIVE DATA IS RELATIVE ADDR, CODE 2 BYTES
  14. 70 N=TRACE+ABS(N):HI=INT(N/256):LO=N-HI*256:POKE A,LO:A=A+1:POKEA,HI
  15. 80 A=A+1:NEXT
  16. 85 REM FIX JUMP VECTOR IN INIT CODE
  17. 90 HI=INT((TRACE+37)/256):LO=TRACE+37-HI*256:POKE TRACE+5,LO:POKE TRACE+9,HI
  18. 100 IF CS<>11307 THEN PRINT"DATA ERROR! CHECK DATA STATEMENTS!":STOP
  19. 110 PRINT:PRINT"TRACE READY.":PRINT
  20. 120 PRINT" SYS"TRACE"= TRACE ON"
  21. 130 PRINT" SYS"TRACE+24"= TRACE OFF"
  22. 140 END
  23. 500 DATA 169,76,133,124,169,8,133,125,169,0,133
  24. 501 DATA 126,169,0,141,-245,141,-246,141
  25. 502 DATA -247,96,169,201,133,124,169,58,133
  26. 503 DATA 125,169,176,133,126,96,201,32,208
  27. 504 DATA 3,76,115,0,72,173,-247,240,31,238
  28. 505 DATA -247,201,167,240,24,169,0,141,-247
  29. 506 DATA 32,-211,208,4,169,84,208,2,169,70
  30. 507 DATA 32,210,255,169,32,32,210,255,32,-211
  31. 508 DATA 240,109,165,57,141,-243,141,-245,165
  32. 509 DATA 58,141,-244,141,-246,201,250,176
  33. 510 DATA 89,169,0,141,-239,141,-240,141,-241
  34. 511 DATA 141,-242,142,-238,162,15,14,-243
  35. 512 DATA 46,-244,120,248,173,-239,109,-239
  36. 513 DATA 141,-239,173,-240,109,-240,141,-240
  37. 514 DATA 173,-241,109,-241,141,-241,216,88,202
  38. 515 DATA 16,216,162,2,189,-239,72,74,74
  39. 516 DATA 74,74,32,-224,104,41,15,32,-224,202
  40. 517 DATA 16,236,169,32,32,210,255,174,-238
  41. 518 DATA 104,201,167,208,3,141,-247,201,58
  42. 519 DATA 176,3,76,132,0,96,165,57,205,-245
  43. 520 DATA 208,5,165,58,205,-246,96,205,-242,208
  44. 521 DATA 1,96,9,48,141,-242,76,210,255
  45.